home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 1.iso
/
ARGONET
/
PD
/
PROGRAMMING
/
PERL.SPK
/
Perl5001
/
pl
/
ChopExt
< prev
Wrap
Text File
|
1996-03-04
|
92b
|
6 lines
foreach $name ( <*/*> ) {
@newname = split(m@/@,$name);
rename ( $name, @newname[0] );
}